play/doctor.el: bugfix for `doctor-mode'.

* play/doctor.el (doctor-mode): Bugfix: escape the "," character
in a `doctor-type' argument.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a885fed565204a9f67e61f6b3b2a3b016e2a667d..c8382569ebc3e72eb6484f7c66769ae35baea27a 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2011-02-16  Bastien Guerry  <bzg@altern.org>
+
+       * play/doctor.el (doctor-mode): Bugfix: escape the "," character
+       in a `doctor-type' argument.
+
 2011-02-16  Alex Harsanyi  <AlexHarsanyi@gmail.com>
 
        * net/soap-client.el:

diff --git a/lisp/play/doctor.el b/lisp/play/doctor.el
index 5b3b4aba0fe654dacb27706d52bfb2b7fad58aee..c60472e938639fcc750e1c6ef256b67f066c74e9 100644 (file)
--- a/lisp/play/doctor.el
+++ b/lisp/play/doctor.el
@@ -141,7 +141,7 @@ reads the sentence before point, and prints the Doctor's answer."
   (turn-on-auto-fill)
   (doctor-type '(i am the psychotherapist \.
                 (doc$ doctor--please) (doc$ doctor--describe) your (doc$ doctor--problems) \.
-                each time you are finished talking, type \R\E\T twice \.))
+                each time you are finished talking\, type \R\E\T twice \.))
   (insert "\n"))
 
 (defun make-doctor-variables ()